home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / f2c.ph < prev    next >
Text File  |  1991-08-11  |  997b  |  46 lines
  1. if (!defined &F2C_INCLUDE) {
  2.     eval 'sub F2C_INCLUDE {1;}';
  3.     eval 'sub TRUE_ {(1);}';
  4.     eval 'sub FALSE_ {(0);}';
  5.     if (!defined &Extern) {
  6.     eval 'sub Extern { &extern;}';
  7.     }
  8.     if (defined &f2c_i2) {
  9.     }
  10.     else {
  11.     }
  12.     eval 'sub VOID { &void;}';
  13.     eval 'sub abs {
  14.         local($x) = @_;
  15.         eval "(($x) >= 0 ? ($x) : -($x))";
  16.     }';
  17.     eval 'sub dabs {
  18.         local($x) = @_;
  19.         eval "( &doublereal) &abs($x)";
  20.     }';
  21.     eval 'sub min {
  22.         local($a,$b) = @_;
  23.         eval "(($a) <= ($b) ? ($a) : ($b))";
  24.     }';
  25.     eval 'sub max {
  26.         local($a,$b) = @_;
  27.         eval "(($a) >= ($b) ? ($a) : ($b))";
  28.     }';
  29.     eval 'sub dmin {
  30.         local($a,$b) = @_;
  31.         eval "( &doublereal) &min($a,$b)";
  32.     }';
  33.     eval 'sub dmax {
  34.         local($a,$b) = @_;
  35.         eval "( &doublereal) &max($a,$b)";
  36.     }';
  37.     eval 'sub F2C_proc_par_types {1;}';
  38.     if (defined &__cplusplus) {
  39.     }
  40.     else {
  41.     }
  42.     if (!defined &Skip_f2c_Undefs) {
  43.     }
  44. }
  45. 1;
  46.